home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / databa_1 / dbgrid.frm < prev    next >
Text File  |  1999-07-10  |  23KB  |  726 lines
  1. VERSION 5.00
  2. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  3. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  4. Begin VB.Form frmDBGrid 
  5.    Caption         =   "Records"
  6.    ClientHeight    =   4950
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   8595
  10.    Icon            =   "DBGrid.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4950
  14.    ScaleWidth      =   8595
  15.    Begin VB.PictureBox pbx2 
  16.       Height          =   375
  17.       Left            =   360
  18.       ScaleHeight     =   315
  19.       ScaleWidth      =   765
  20.       TabIndex        =   16
  21.       Top             =   4410
  22.       Width           =   825
  23.       Begin VB.CommandButton cmdSearch 
  24.          Caption         =   "Search"
  25.          Enabled         =   0   'False
  26.          BeginProperty Font 
  27.             Name            =   "MS Sans Serif"
  28.             Size            =   8.25
  29.             Charset         =   0
  30.             Weight          =   700
  31.             Underline       =   0   'False
  32.             Italic          =   0   'False
  33.             Strikethrough   =   0   'False
  34.          EndProperty
  35.          Height          =   330
  36.          Left            =   0
  37.          TabIndex        =   17
  38.          Top             =   0
  39.          Width           =   780
  40.       End
  41.    End
  42.    Begin VB.PictureBox pbx1 
  43.       Height          =   405
  44.       Left            =   360
  45.       ScaleHeight     =   345
  46.       ScaleWidth      =   6825
  47.       TabIndex        =   1
  48.       Top             =   3870
  49.       Width           =   6885
  50.       Begin VB.CommandButton cmdChange 
  51.          Caption         =   "Change"
  52.          Enabled         =   0   'False
  53.          BeginProperty Font 
  54.             Name            =   "MS Sans Serif"
  55.             Size            =   8.25
  56.             Charset         =   0
  57.             Weight          =   700
  58.             Underline       =   0   'False
  59.             Italic          =   0   'False
  60.             Strikethrough   =   0   'False
  61.          EndProperty
  62.          Height          =   345
  63.          Left            =   3330
  64.          TabIndex        =   18
  65.          Top             =   0
  66.          Width           =   870
  67.       End
  68.       Begin VB.CommandButton cmdFieldProperties 
  69.          Appearance      =   0  'Flat
  70.          BackColor       =   &H00C0E0FF&
  71.          BeginProperty Font 
  72.             Name            =   "MS Sans Serif"
  73.             Size            =   8.25
  74.             Charset         =   0
  75.             Weight          =   700
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   345
  81.          Left            =   1320
  82.          Style           =   1  'Graphical
  83.          TabIndex        =   15
  84.          ToolTipText     =   "Field properties"
  85.          Top             =   0
  86.          Width           =   240
  87.       End
  88.       Begin VB.CommandButton cmdRSProperties 
  89.          Appearance      =   0  'Flat
  90.          BackColor       =   &H00FFFFC0&
  91.          BeginProperty Font 
  92.             Name            =   "MS Sans Serif"
  93.             Size            =   8.25
  94.             Charset         =   0
  95.             Weight          =   700
  96.             Underline       =   0   'False
  97.             Italic          =   0   'False
  98.             Strikethrough   =   0   'False
  99.          EndProperty
  100.          Height          =   345
  101.          Left            =   1080
  102.          Style           =   1  'Graphical
  103.          TabIndex        =   14
  104.          ToolTipText     =   "Recordset properties"
  105.          Top             =   0
  106.          Width           =   240
  107.       End
  108.       Begin VB.CommandButton cmdRSSupports 
  109.          Appearance      =   0  'Flat
  110.          BackColor       =   &H80000018&
  111.          BeginProperty Font 
  112.             Name            =   "MS Sans Serif"
  113.             Size            =   8.25
  114.             Charset         =   0
  115.             Weight          =   700
  116.             Underline       =   0   'False
  117.             Italic          =   0   'False
  118.             Strikethrough   =   0   'False
  119.          EndProperty
  120.          Height          =   345
  121.          Left            =   840
  122.          Style           =   1  'Graphical
  123.          TabIndex        =   12
  124.          ToolTipText     =   "Recordset supports"
  125.          Top             =   0
  126.          Width           =   240
  127.       End
  128.       Begin VB.CommandButton cmdRefresh 
  129.          Caption         =   "Refresh"
  130.          Enabled         =   0   'False
  131.          BeginProperty Font 
  132.             Name            =   "MS Sans Serif"
  133.             Size            =   8.25
  134.             Charset         =   0
  135.             Weight          =   700
  136.             Underline       =   0   'False
  137.             Italic          =   0   'False
  138.             Strikethrough   =   0   'False
  139.          EndProperty
  140.          Height          =   345
  141.          Left            =   0
  142.          TabIndex        =   11
  143.          Top             =   0
  144.          Width           =   825
  145.       End
  146.       Begin VB.CommandButton cmdAdd 
  147.          Caption         =   "Add"
  148.          Enabled         =   0   'False
  149.          BeginProperty Font 
  150.             Name            =   "MS Sans Serif"
  151.             Size            =   8.25
  152.             Charset         =   0
  153.             Weight          =   700
  154.             Underline       =   0   'False
  155.             Italic          =   0   'False
  156.             Strikethrough   =   0   'False
  157.          EndProperty
  158.          Height          =   345
  159.          Left            =   1560
  160.          TabIndex        =   6
  161.          Top             =   0
  162.          Width           =   915
  163.       End
  164.       Begin VB.CommandButton cmdDelete 
  165.          Caption         =   "Delete"
  166.          Enabled         =   0   'False
  167.          BeginProperty Font 
  168.             Name            =   "MS Sans Serif"
  169.             Size            =   8.25
  170.             Charset         =   0
  171.             Weight          =   700
  172.             Underline       =   0   'False
  173.             Italic          =   0   'False
  174.             Strikethrough   =   0   'False
  175.          EndProperty
  176.          Height          =   345
  177.          Left            =   2460
  178.          TabIndex        =   5
  179.          Top             =   0
  180.          Width           =   870
  181.       End
  182.       Begin VB.CommandButton cmdClose 
  183.          Caption         =   "Close"
  184.          BeginProperty Font 
  185.             Name            =   "MS Sans Serif"
  186.             Size            =   8.25
  187.             Charset         =   0
  188.             Weight          =   700
  189.             Underline       =   0   'False
  190.             Italic          =   0   'False
  191.             Strikethrough   =   0   'False
  192.          EndProperty
  193.          Height          =   345
  194.          Left            =   5940
  195.          TabIndex        =   4
  196.          Top             =   0
  197.          Width           =   870
  198.       End
  199.       Begin VB.CommandButton cmdSave 
  200.          Caption         =   "Save"
  201.          Enabled         =   0   'False
  202.          BeginProperty Font 
  203.             Name            =   "MS Sans Serif"
  204.             Size            =   8.25
  205.             Charset         =   0
  206.             Weight          =   700
  207.             Underline       =   0   'False
  208.             Italic          =   0   'False
  209.             Strikethrough   =   0   'False
  210.          EndProperty
  211.          Height          =   345
  212.          Left            =   5070
  213.          TabIndex        =   3
  214.          Top             =   0
  215.          Width           =   870
  216.       End
  217.       Begin VB.CommandButton cmdAbort 
  218.          Caption         =   "Abort"
  219.          Enabled         =   0   'False
  220.          BeginProperty Font 
  221.             Name            =   "MS Sans Serif"
  222.             Size            =   8.25
  223.             Charset         =   0
  224.             Weight          =   700
  225.             Underline       =   0   'False
  226.             Italic          =   0   'False
  227.             Strikethrough   =   0   'False
  228.          EndProperty
  229.          Height          =   345
  230.          Left